home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
numess1.zip
/
NUMESS.PPS
< prev
Wrap
Text File
|
1996-04-09
|
1KB
|
24 lines
;NUMess v1.0 Post message to Sysop for each new user.
;Atlantis Software
;BBS 706-776-9276 28.8
;------------------------------------------------------------------------------
STRING VAR001
;------------------------------------------------------------------------------
GETUSER
LET VAR001=U_NAME()
FCREATE 1,PPEPATH()+PPENAME()+".DAT",O_WR,S_DN
FPUTLN 1," @X06┌───────────────────────────────────────────────────┐@X0F"
FPUTLN 1," @X06│ @X0FNew Caller to the System!@X06 │@X0F"
FPUTLN 1," @X06└───────────────────────────────────────────────────┘@X0F"
FPUTLN 1,""
FPUTLN 1,"@X0F@X0E UserName@X0A:@X0F "+VAR001
FPUTLN 1,"@X0F@X0E From@X0A:@X0F "+U_CITY
FPUTLN 1,"@X0F@X0E Alias Used@X0A:@X0F "+U_ALIAS
FCLOSE 1
MESSAGE 0,"SYSOP","New Caller PPE","New Caller Arrived!","R",0,0,0,PPEPATH()+PPENAME()+".DAT"
DELETE PPEPATH()+PPENAME()+".DAT"
END